home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 27
/
Tiger_Disk_027_19xx_Tiger-Crew-Disk_de_Side_A.d64
/
austria [lgk]
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
4KB
|
171 lines
1 rem +++++++++++
2 rem + logiker +
3 rem + am +
4 rem + 27. nov +
5 rem + 1993 +
6 rem +++++++++++ ..(c) freeware
9 poke 53280,2:poke 53281,2
10 print"[147]";
15 for n=1to9:print" [146]";:next
21 get a$:if a$<>" " then 21
25 print:print
30 print"[147] austria v1.0 [146]"
35 print spc(25) " [172][191][191][146][162]"
40 print spc(25) " [161][146] [162][162][146][162][162][162][146][162]"
45 print spc(22)"[188][146]";spc(3)"[172][190]";spc(9)"[161]"
50 print spc(20)"[162][190][146] [162][146][191][162][146][191][187]";spc(9)"[161]"
55 print spc(19)"[172][190]";spc(6)"[161][146]";spc(9)"[161]"
60 print spc(18)"[162][190]";spc(7)"[161][146]";spc(9)"[191]"
65 print spc(17)"[191][146]";spc(7)"[191][162][146][190]";spc(9)"[162][161]"
70 print spc(17)"[191][162][187]";spc(5)"[191][187]";spc(8)"[162][191][146] [191]"
75 print spc(17)"[161][146] [161][146] [161][146] [161][146] [161]"
80 print spc(18)"[161] [187][146] [172][191][146][162][191][162][146][191][187] [161][191][162][146][162][190]"
85 print spc(11)"[172][162][162][162][146][191][162][146][187][161][146] [161][161][162][162][146][191][190] [188][161] [191][188][191]"
90 print"[145] [187]"
95 print" [191][146][188][191] [191][162][146][191] [191][146][190] [161][188][190] [188][191][146]";spc(10)"[188][191][191][146][172][190]"
100 print"[172][190] [188][162][190] [162][162][146] [162][190] [161]";spc(11)"[172][190][191]"
105 print" [161] [161]";spc(8)"[161][162][146] [188][191]";spc(10)"[161][146] [161][146]"
110 print" [191][187][172][190]";spc(8)"[190][146][162][162][146][162][162] [172][162][187][161][146][172][187]";spc(8)"[161][146] [190][146]"
115 print" [188][191][191][146][161] [172][162][162][162][162][161][146] [188][187][162][146][190] [188][162][190][188][162][162][162][146][187] [188][191][146]"
120 print" [188][162][146][162][191][146] [191] [191]";spc(10)"[161] [161][146]"
125 print spc(15)"[191][162][161]";spc(10)"[188][146][162][162][191][162][146][190]"
130 print spc(17)"[188][162][162][162][146][162][162][162] [191][146]"
135 print spc(24)"[162][162][191][146]"
140 get a$:if a$<>" "anda$<>"e"then140
141 if a$="e"thenprint"[147]":end
145 print"[147] kaernten [146]"
150 print" [191][162][146][162] [191][162][146][185][185] [172][191][146][162][172][162][162][162]"
155 print" [161][146] [162][146] [191][162][190] [190] [191]"
160 print" [188][187]";spc(15)"[161][146]"
165 print" [188][187]";spc(15)"[161]"
170 print" [172][162][146]";spc(16)"[161]"
175 print" [188][162][162][162]";spc(13);"[191][146]"
180 print" [162][162][162][146][191][162][162][162] [172][191][146]"
185 print spc(14)"[162][162][162][146][162][190]"
190 get a$:if a$<>" " then 190
195 print"[147] vorarlberg [146]"
200 print" [191][146][162]"
205 print" [191][146] [191]"
210 print" [161][146] [188][187]"
215 print" [172][190] [161][146]"
220 print" [161] [161][146]"
225 print" [161] [161][146]"
230 print" [191][162] [161]"
235 print" [191] [161]"
240 print" [162][146]"
245 get a$:if a$<>" " then 245
250 print"[147] osttirol [146]
255 [153]" newrnd
260 print" [172][191][146] [188][187]
265 [153]" get get
270 print" [191] [188][187]
275 [153]" get logrnd
280 print" [188][187] [172][162][146]
285 [153]" lognewwaitcos
290 get a$:if a$<>" " then 290
295 print"[147] tirol [146]
300 [153] [166]19)"coswaitnew
305 print" [187][162] [172][162][162][162][162][190] [162][146][187]
310 [153]" getwaitlog newwaitget *cos sin
315 print" [161][146] [188][162][162][190][146][190] [191][146]
320 [153]" *cos *newsinwait
325 print" [172][190] [191][146][190]
330 [153]" getwait get
335 print" [161] [162][190]
340 [153]" getnewsin newnewsinnewnewwaitsinnewwait
345 print" [188][162][190][188][162][187] [191][146]
350 [153]" lognewnewcos
355 get a$:if a$<>" " then 355
360 print"[147] salzburg [146]
365 [153]" sinnewwaitnewsin
370 print" [161][146] [191][146]
375 [153]" getwait sinrnd
380 print" [188][187] [191][146]
385 [153]" sinwaitrnd getwait getwait
390 print" [161][191] [161] [161][146]
395 [153]" getwait newwait logrnd
400 print" [191][146][190] [161]
405 [153]" sinnewnewwait sinnew
410 print" [161] [191]
415 [153]" sinsinnewnewwaitnewrnd rnd *cos
420 print" [188][191][162][191][146][188][162][146][191] [161]
425 [153] [166]14)"rndwait
430 get a$:if a$<>" " then 430
435 print"[147] oberoesterreich [146]
440 [153]" getnewwaitrnd
445 print" [162] [161][146] [191][162][187][191][146][191][187]
450 [153]" getwait newwaitcos log logsin
455 print" [161][146] [161][146]
460 [153]" newcos get
465 print" [162][162][146] [187] [172][161]
470 [153]" sinwait getwaitlognewwaitcos
475 print" [161][162] [161]
480 [153]" log newnewwaitget lognew
485 print" [161][146] [191]
490 [153]" lognewnew get
495 print" [191] [172][162][187] [162][190]
500 [153]" getwait get lognewwaitnewnewwait
505 print" [191][146] [161]
510 [153]" lognewwait
515 get a$:if a$<>" " then 515
520 print"[147] steiermark [146]
525 [153] [166]15)"newnewwaitnew
530 print" [172][162][187] [162][162][162][162][162] [191]
535 [153]" get lognewwaitnewnewwait newwaitget
540 print" [161]";spc(15)"[188][162]
545 [153]" getnewwait";[166]16)"*cos
550 print" [161][146]";spc(18)"[191]
555 [153]" sinsin";[166]16)"getwait
560 print" [191]";spc(16)"[161]
565 [153]" sinwait new getwait
570 print" [172][190][191][146] [162][162][162][162][162][146][187] [172][190]
575 [153]" lognewwait getwait get
580 print spc(13)"[161][146] [161]
585 [153] [166]13)"getwait get
590 print spc(13)"[161][146] [162][162][162][190]
595 [153] [166]14)"newnewnewnewwait
600 get a$:if a$<>" " then 600
605 print "[147] burgenland [146]
610 [153]" *newsinwaitrnd
615 print" [172][172][190] [161]
620 [153]" *coscos *cos
625 print" [191][146] [172] [188][187]
630 [153]" sin*cosnewsinnewwait
635 print" [161][146] [162][146][187]
640 [153]" sinwait get
645 print" [172][162][146] [172][191][146]
650 [153]" sin sin
655 print" [161][146] [161][146]
660 [153]" get logrnd
665 print" [161][146] [188][187]
670 [153]" *cossinnewwait
675 print" [161][191][146]
680 [153]" newwait
685 get a$:if a$<>" " then 685
690 print "[147] niederoesterreich [146]
695 [153]" *newnewwaitsinrnd
700 print" [161] [188][162][162][146][187]
705 [153]" newcos logsinnewnewnewnewwaitnewrnd
710 print" [161][146]";spc(15);"[161][146]
715 [153]" get";[166]15);"getwait
720 print" [188][187]";spc(14);"[191][146]
725 [153]" getwait";[166]14);"get
730 print" [161] [172][187] [161][146]
735 [153]" rnd *get sinwaitcosgetwait get
740 print" [161][146][188][162][146][190] [191][162][191][146] [161][146]
745 [153]" get";[166]16);"*newnewwait
750 print" [188][162]";spc(13);"[187][187][190]
755 [153]" sin";[166]11);"*coscos
760 print" [161] [162][162][146][162] [191][146]
765 [153]" lognewnewnewwait sin sin
770 print spc(11);"[162][146][161] [161][146]
775 [153] [166]12);"lognew sinwait
780 print spc(14);"[162][146]
785 [161] a$:[139] a$[179][177]" " [167] 785
790 [153] "load wien wait
795 print" [172][187]
800 [153]" sinwaitcosgetwait
805 print" [191][162][191][146][190]
810 [161] a$:[139] a$[179][177]" " [167] 810
815 [137]30